#!/usr/bin/perl

use strict;

while (<>) {
    if(/^bot/) {
        my $random = int(rand(11))+5;
        if(s/v=\d+/v=$random/) {}
        $random = (int(rand(4))+2)*100;
        if(s/f=\d+/f=$random/) {}
        $random = (int(rand(11)))+10;
        if(s/cost=\d+/cost=$random/) {}
        print $_;
        next;
    } 
    
    if (/^obj/) {
        my $random = (int(rand(2))+1)*100+int(rand(2))*50;
        my $lrandom = int(($random)*0.75*0.5);
        
        if(s/f=\d+,\d+/f=$random,$lrandom/) {}
        
        print $_;
        next;
    
    }
    
    if (/^task/) {
        if(s/priority=\d+\D?\d*\s?/priority=1 /) {}
        
        print $_;
        next;
    }
    
    print $_;
    
}